From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 24 May 1994 21:12:22 +0000 (+0000)
Subject: (describe_map): Fix the call to Fequal.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91393
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b5b90d18cc81b8b415027605bc043b8b89caa5e4;p=emacs.git

(describe_map): Fix the call to Fequal.
---

diff --git a/src/keymap.c b/src/keymap.c
index 222455328a2..7893c2a054a 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -2126,7 +2126,7 @@ describe_map (map, keys, elt_describer, partial, shadow, seen)
 	     using an inherited keymap.  So skip anything we've already
 	     encountered.  */
 	  tem = Fassq (tail, *seen);
-	  if (CONSP (tem) && Fequal (XCONS (tem)->car, keys))
+	  if (CONSP (tem) && !NILP (Fequal (XCONS (tem)->car, keys)))
 	    break;
 	  *seen = Fcons (Fcons (tail, keys), *seen);
 	}